home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbtool.exe / RANDOM.BAS < prev    next >
BASIC Source File  |  1991-10-31  |  656b  |  26 lines
  1. '----------------------------------------------------------
  2. '  PROGRAM: RANDOM.BAS         PROGRAMMER: A. KELLETT
  3. '  DATE-WRITTEN: 06/27/91
  4. '  USING POWER BASIC V2.10A
  5. '
  6. '  THIS PROGRAM GENERATES A SEQUENCE OF PSEUDO-RANDOM
  7. '  NUMBERS AND DISPLAYS THEM...
  8. '  VERSION: 0.00    LAST UPDATED: 00/00/00
  9. '----------------------------------------------------------
  10. '      GENERATES A SEQUENCE OF PSEUDO-RANDOM NUMBERS...
  11. '
  12. CLS
  13. RANDOMIZE MTIMER
  14. FOR I% = 1 TO 20
  15.    X = RND(1)
  16.    PRINT X;"   ";(INT(X*100))
  17.    IF (INT(X*100)) < 1 THEN
  18.       COUNT = COUNT + 1
  19.    END IF
  20. NEXT I%
  21. PRINT "THERE WERE ";COUNT;" NUMBER LESS THAN 1"
  22. DELAY 2
  23. END
  24.  
  25.  
  26.